00100	INS6 0 13;
00200	P2 NU/R(1X200/.8/.65/.55/.5/)/@R .5/@R .25/.1 X 60;
00300	P3 MOVE/7 500,1500/6 1500,375;
00400	P4 .03;P5 .01;
00500	P6 MOVE/7 C3,C6/3 C6,C6/3 AS5,AS5;
00600	P7 "1./.414";P8 "1.414*P7";P9 .1;P10 .1;
00610	P11 ALL "P4";P12 ALL "P5";
00700	P13 0;P14 ALL "P2-.04";P15 ALL 0;
00800	P16 FU/7;P17 FU/7;P18 FU/9;
00900	P21 1;P22 NU/19 X 18/1 X 60;
01000	P23 NU/7 X 18/.1 X 60;P26  NU/-2 X 18/-3 X 60;
01010	P27 ALL 3096;P28 ALL .05;
01100	P29 "W16=0;W17=0;W18=0";
01200	END;
01210	INS1 0 15;P2 -7;END;
01220	INS2 0 22;P2 -16;END;
01230	INS3 0 27;P2 -23;END;
01240	INS4 0 33;P2 -25;END;
01250	INS7 0 38;P2 -33;END;
01300	INS1 7;
01400	P2 NU/@R/@-R;
01500	P3 1500;
01600	P4 .1;P5 .15;
01700	P6 NO/J(C5/AS4/A/D5/GS4/G)/K(AS4/CS5/GS/C/B4/G5);
01710	P7 1;P8 1;P9 0;P10 6;
01800	P13 MOVE/4 1,0/4 0 .75;
01810	P16 FU/5;P17 FU/5;P18 FU/9;
01900	P21 1;P22 5;P23 8;P26  -2;
01910	P29 ";W1=0;W2=0;W3=0";
02000	END;
02100	INS2 16;
02200	P2 NU/@R .75/@-R .75;
02300	P3 1000;
02400	P4 .1;P5 .2;
02500	P6 NO/@K/L(AS4/A/CS5/FS4/C5/B4);
02510	P7 1;P8 1;P9 0;P10 12;
02600	P13 MOVE/3 .75,0/3 0,.5;
02610	P16 FU/5;P17 FU/8;P18 FU/9;
02700	P21 5;P22 10;P23 6;P26  -2;
02710	P29 ";W4=0;W5=0;W6=0";
02800	END;
02900	INS3 23;
03000	P2 NU/@R .5/@-R .5;
03100	P3 750;
03200	P4 .1;P5 .15;
03300	P6 NO/@L/@J;
03310	P7 1;P8 2;P9 0;P10 3;
03400	P13 MOVE/2 .5,0/2 0,.25;
03410	P16 FU/5;P17 FU/5;P18 FU/9;
03500	P21 10;P22 14;P23 4;P26  -2;
03510	P29 ";W7=0;W8=0;W9=0";
03600	END;
03700	INS4 25;P2 NU/@R/@-R;
03800	P3 1500;
03900	P4 .1;P5 .15;
04000	P6 NO/@J/@L;
04010	P7 5;P8 1;P9 1;P10 2;
04100	P13 MOVE/4 .25,0/4 0,0;
04110	P16 FU/5;P17 FU/6;P18 FU/9;
04200	P21 14;P22 199;P23 8;P26  -2;
04210	P29 ";W10=0;W11=0;W12=0";
04300	END;
04400	INS7 33;
04500	P2 5;
04600	P3 375;
04700	P4 .03;P5 "P2-.6-P4";
04800	P6 NO/C2;
04900	P7 "1./.414";P8 "1.414*P7";P9 1.5;P10 2.5;
05000	P13 0;P14 0;P15 0;
05100	P16 FU/4;P17 FU/4;P18 FU/9;
05200	P19 2;P20 .004;
05300	P21 1;P22 1;P23 5;P26  -3;
05400	P29 ";W19=0;W20=0;W21=0";
05500	END;
05600	RUN;
05700